La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.
📢 ¡𝒃𝒖𝒔 𝒑𝒆𝒓𝒊𝒎𝒆𝒕𝒓𝒂𝒍! De lunes a viernes, en el horario de 8:00 a.m. a 9:00 p.m., la comunidad sanmarquina podrá hacer uso de nuestro bus que recorre todo el perímetro de la Ciudad Universitaria. ¡𝗕𝗶𝗲𝗻𝘃𝗲𝗻𝗶𝗱𝗼 𝗱𝗲 𝘃𝘂𝗲𝗹𝘁𝗮, “𝗯𝘂𝗿𝗿𝗶𝘁𝗼” 𝘀𝗮𝗻𝗺𝗮𝗿𝗾𝘂𝗶𝗻𝗼!
Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual. 🗓️ Fecha de inicio: 30 de octubre 📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.
🕘Horario de emisión de tickets virtuales: * Desayuno: 6:00 am -Almuerzo: 10:00 am -Cena: 4:00 pm
🕘Horario de ingreso al servido: -Desayuno: 7:00 am -Almuerzo: 12:00 pm -Cena: 5:00 pm
👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición. 🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.
🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.
👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.
❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.
📢 ¡Atención sanmarquinos! ✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas! 🚌Paradero inicial 6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este). 🚌Salida de la Ciudad Universitaria Administrativos: 5:50 p. m. Explanada de Facultad de Odontología Estudiantes: 6:05 p. m. Explanada de la Facultad de Derecho 🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.
Ruta Norte: https://www.facebook.com/watch/?v=1265586960832468
Ruta Centro: https://www.facebook.com/watch/?v=1300748160786033
Ruta Sur: https://www.facebook.com/watch/?v=1424578748327902
Ruta Este: https://www.facebook.com/watch/?v=1263155727623178
---
title: "Ubicate Cachimbo"
output:
flexdashboard::flex_dashboard:
theme: journal
orientation: columns
social: menu
source_code: embed
vertical_layout: fill
width: 100%
css:
- "styles.css"
---
```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(foreign)
library(fontawesome)
library(knitr)
library(foreign)
library(geojsonio)
library(knitr)
library(RColorBrewer)
library(raster)
```
# SERVICIOS
## SERVICIOS {data-width=500}
### VISOR DE SERVICIOS
```{r}
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif")
perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")
calor_unmsm <- raster::crop(serv_calor, extent(perimetro))
calor_mask <- mask(x = calor_unmsm, mask = perimetro)
paleta_calor_servicio <- colorNumeric(c("red", "orange", "yellow", "blue", "darkblue"), values(calor_mask),
na.color = "transparent")
# Ruta al archivo DBF
ruta_dbf <- "C:/Users/diego/Documents/DashBoardUNMSM/tabla/tabla4/srvicio_table4.dbf"
# Leer el archivo DBF y convertirlo a un dataframe
dataframe_servicios <- read.dbf(ruta_dbf)
# first 20 quakes
df.20 <- dataframe_servicios[1:59,]
getColor <- function(dataframe_servicios) {
sapply(dataframe_servicios$TIPO_DE_SE, function(TIPO_DE_SE) {
# Personaliza los colores según los nombres de servicios
if (TIPO_DE_SE == "LIBRERÍA/IMPRENTA") {
"green"
} else if (TIPO_DE_SE == "KIOSKO/BODEGA") {
"yellowgreen"
} else if (TIPO_DE_SE == "CAFETERIA") {
"orange"
} else if (TIPO_DE_SE == "BIBLIOTECA") {
"blue"
} else {
"red"
}
})
}
icons <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = getColor(df.20)
)
# Leer el archivo GeoJSON
facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
servicios <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/SERV_UNMSM.geojson", what = "sp")
# Cargar datos del GeoJSON (líneas)
ruta_burro <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/ruta_burro.geojson", what = "sp")
paraderos <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/paraderos.geojson", what = "sp")
# Crear el mapa
m <- leaflet() %>%
setView(lng = -77.082, lat = -12.056, zoom = 16) %>%
addProviderTiles("MapBox", options = providerTileOptions(
ID = "mapbox.light",
accessToken = Sys.getenv('MAPBOX_ACCESS_TOKEN')
))
# Añadir control de capas y leyenda
m <- m %>%
addLayersControl(
overlayGroups = c("Facultades", "CartoDB","Ruta Bus","Servicios", "Paraderos", "Mapa de calor"), # Grupos de capas
options = layersControlOptions(collapsed = TRUE)
) %>%
addLegend(
position = "bottomright",
colors = c("green","orange","dodgerblue","red","blue","lightblue","lightsalmon", "gray", "purple"),
labels = c("Librería/Imprenta","Cafetería","Biblioteca","Kiosko/Bodega
","Paraderos","Bus Perimetral","Facultades", "CartoDB","Hora de Cierre"),
title = "Leyenda"
)
# Crear etiquetas
labels <- sprintf(
"<strong>%s</strong>",
facultades$NOMFAC
) %>% lapply(htmltools::HTML)
# Añadir polígonos al mapa
m <- m %>%
addPolygons(data=facultades,
weight = 2,
opacity = 1,
color = "lightsalmon",
dashArray = "0.5",
fillOpacity = 0.7,
highlightOptions = highlightOptions(
weight = 2,
color = "#000",
dashArray = "",
fillOpacity = 0.9,
bringToFront = TRUE),
label = labels,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"),
group = "Facultades" # Agregar grupo para el control de capas
) %>%
addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
addMiniMap(position = "bottomleft",width = 100, height = 80)
m <- m %>%
addEasyButton(easyButton(
icon="fa-globe", title="Zoom Inicial",
onClick=JS("function(btn, map){ map.setZoom(16); }"))) %>%
addEasyButton(easyButton(
icon="fa-crosshairs", title="Localízame",
onClick=JS("function(btn, map){ map.locate({setView: true}); }")))
labels_ruta <- sprintf(
"<strong>Distancia:</strong> %s m",
ruta_burro$Longitud
) %>% lapply(htmltools::HTML)
# Añadir líneas con etiquetas emergentes
m <- m %>% addPolylines(
data = ruta_burro,
color = "lightskyblue", # Color del borde
fillOpacity = 0.2,# Color de las líneas
weight = 8, # Grosor de las líneas
group = "Ruta Bus", # Grupo para el control de capas
popup = ~paste( ruta_burro$Longitud, "metros"),
label = labels_ruta,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto")
)
labels_paraderos <- sprintf(
"<strong>Paradero:</strong> %s",
paraderos$Paradero
) %>% lapply(htmltools::HTML)
m <- m %>% addPolygons(
data = paraderos,
fillColor = "blue", # Color de relleno
color = "blue", # Color del borde
fillOpacity = 0.5, # Opacidad del relleno
weight = 6, # Grosor del borde
group = "Paraderos", # Información emergente al hacer clic
label = labels_paraderos)
m <- m %>% addRasterImage(calor_mask, colors = paleta_calor_servicio, opacity = 0.6,
group = "Mapa de calor") %>%
addLegend(pal = paleta_calor_servicio, values = values(calor_mask),
title = "Hora de Cierre [h]")
labels_serv <- sprintf(
"<strong>%s</strong><br/>Horario: %s - %s",
df.20$TIPO_DE_SE, df.20$HOR_INI, df.20$HOR_FIN
) %>% lapply(htmltools::HTML)
m <- m %>%
addAwesomeMarkers(data = df.20, ~ESTE, ~NORTE, icon=icons, label=labels_serv, group = "Servicios") %>%
setView(lng = -77.082, lat = -12.056, zoom = 16)
# Mostrar el mapa
m
```
## UNMSM {data-width=200}
### **CIUDAD UNIVERSITARIA**
La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.
### BUS PERIMETRAL
📢 ¡𝒃𝒖𝒔 𝒑𝒆𝒓𝒊𝒎𝒆𝒕𝒓𝒂𝒍! De lunes a viernes, en el horario de 8:00 a.m. a 9:00 p.m., la comunidad sanmarquina podrá hacer uso de nuestro bus que recorre todo el perímetro de la Ciudad Universitaria. ¡𝗕𝗶𝗲𝗻𝘃𝗲𝗻𝗶𝗱𝗼 𝗱𝗲 𝘃𝘂𝗲𝗹𝘁𝗮, “𝗯𝘂𝗿𝗿𝗶𝘁𝗼” 𝘀𝗮𝗻𝗺𝗮𝗿𝗾𝘂𝗶𝗻𝗼!
### BUS
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus.jpg")
```
# MAPA DE CALOR
## GEOVISOR
### **Mapa de Calor**
```{r}
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif")
perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")
puntos_de_serv <- shapefile("C:/Users/diego/Documents/DashBoardUNMSM/Shapes/servicios/puntos_servi_spline.shp")
calor_unmsm <- raster::crop(serv_calor, extent(perimetro))
calor_mask <- mask(x = calor_unmsm, mask = perimetro)
paleta_serv <- colorRampPalette(c("red","orange", "yellow", "blue","darkblue"))
plot(calor_mask,col = paleta_serv(500) , main= "Hora de Cierre de los Servicios [h]", alpha = 0.8)
plot(perimetro, add=TRUE)
plot(facultades, add=TRUE,col = "gray", border = "white", lwd = 2)
plot(puntos_de_serv, add=TRUE, pch=8, col="green", cex=.75)
```
# COMEDOR UNIVERSITARIO
## UNMSM
### **Oficina General de Bienestar Universitario - UNMSM**
Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual.
🗓️ Fecha de inicio: 30 de octubre
📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.
🕘Horario de emisión de tickets virtuales:
* Desayuno: 6:00 am
-Almuerzo: 10:00 am
-Cena: 4:00 pm
🕘Horario de ingreso al servido:
-Desayuno: 7:00 am
-Almuerzo: 12:00 pm
-Cena: 5:00 pm
👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición.
🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.
🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.
👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.
❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.
### **USO DE LA APLICACIÓN**
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/app_uso.jpg")
```
## **TICKETS VIRTUAL**
### **TICKETS VIRTUAL**
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/apk_unmsm.jpg")
```
# BUS EXTERNO
## BUS EXTERNO
### RUTAS DEL BUS EXTERNO
📢 ¡Atención sanmarquinos!
✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas!
🚌Paradero inicial
6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este).
🚌Salida de la Ciudad Universitaria
Administrativos:
5:50 p. m. Explanada de Facultad de Odontología
Estudiantes:
6:05 p. m. Explanada de la Facultad de Derecho
🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.
Ruta Norte:
https://www.facebook.com/watch/?v=1265586960832468
Ruta Centro:
https://www.facebook.com/watch/?v=1300748160786033
Ruta Sur:
https://www.facebook.com/watch/?v=1424578748327902
Ruta Este:
https://www.facebook.com/watch/?v=1263155727623178
### BUS EXTERNO
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus externo.jpg")
```
## BUS EXTERNO
### RUTA NORTE
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/norte.jpg")
```
### RUTA CENTRO
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/centro.jpg")
```
## BUS EXTERNO
### RUTA SUR
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/sur.jpg")
```
### RUTA ESTE
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/este.jpg")
```